/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / packages / feedmail.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 31 33 3a 32 | 36 20 31 39 39 35 0a 3b | 14:13:2|6 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 70 61 | 63 6b 61 67 65 73 2f 66 |/lisp/pa|ckages/f|
|00000090| 65 65 64 6d 61 69 6c 2e | 65 6c 0a 3b 3b 3b 20 65 |eedmail.|el.;;; e|
|000000a0| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 31 39 2e |macs ver|sion 19.|
|000000b0| 31 33 20 58 45 6d 61 63 | 73 20 4c 75 63 69 64 2e |13 XEmac|s Lucid.|
|000000c0| 0a 3b 3b 3b 20 62 79 74 | 65 63 6f 6d 70 20 76 65 |.;;; byt|ecomp ve|
|000000d0| 72 73 69 6f 6e 20 32 2e | 32 35 3b 20 31 2d 53 65 |rsion 2.|25; 1-Se|
|000000e0| 70 2d 39 34 2e 0a 3b 3b | 3b 20 6f 70 74 69 6d 69 |p-94..;;|; optimi|
|000000f0| 7a 61 74 69 6f 6e 20 69 | 73 20 6f 6e 2e 0a 3b 3b |zation i|s on..;;|
|00000100| 3b 20 74 68 69 73 20 66 | 69 6c 65 20 75 73 65 73 |; this f|ile uses|
|00000110| 20 6f 70 63 6f 64 65 73 | 20 77 68 69 63 68 20 64 | opcodes| which d|
|00000120| 6f 20 6e 6f 74 20 65 78 | 69 73 74 20 69 6e 20 45 |o not ex|ist in E|
|00000130| 6d 61 63 73 20 31 38 2e | 0a 0a 28 69 66 20 28 61 |macs 18.|..(if (a|
|00000140| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 6d 61 63 |nd (boun|dp 'emac|
|00000150| 73 2d 76 65 72 73 69 6f | 6e 29 0a 09 20 28 6f 72 |s-versio|n).. (or|
|00000160| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000170| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 20 65 |poch::ve|rsion) e|
|00000180| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 0a 09 |poch::ve|rsion)..|
|00000190| 20 20 20 20 20 28 73 74 | 72 69 6e 67 2d 6c 65 73 |     (st|ring-les|
|000001a0| 73 70 20 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |sp emacs|-version|
|000001b0| 20 22 31 39 22 29 29 29 | 0a 20 20 20 20 28 65 72 | "19")))|.    (er|
|000001c0| 72 6f 72 20 22 54 68 69 | 73 20 66 69 6c 65 20 77 |ror "Thi|s file w|
|000001d0| 61 73 20 63 6f 6d 70 69 | 6c 65 64 20 66 6f 72 20 |as compi|led for |
|000001e0| 45 6d 61 63 73 20 31 39 | 2e 22 29 29 0a 0a 28 64 |Emacs 19|."))..(d|
|000001f0| 65 66 76 61 72 20 66 65 | 65 64 6d 61 69 6c 2d 63 |efvar fe|edmail-c|
|00000200| 6f 6e 66 69 72 6d 2d 6f | 75 74 67 6f 69 6e 67 20 |onfirm-o|utgoing |
|00000210| 6e 69 6c 20 22 5c 0a 2a | 49 66 20 6e 6f 6e 2d 6e |nil "\.*|If non-n|
|00000220| 69 6c 2c 20 67 69 76 65 | 73 20 61 20 79 2d 6f 72 |il, give|s a y-or|
|00000230| 2d 6e 20 63 6f 6e 66 69 | 72 6d 61 74 69 6f 6e 20 |-n confi|rmation |
|00000240| 70 72 6f 6d 70 74 20 61 | 66 74 65 72 20 70 72 65 |prompt a|fter pre|
|00000250| 70 70 69 6e 67 2c 0a 62 | 65 66 6f 72 65 20 73 65 |pping,.b|efore se|
|00000260| 6e 64 69 6e 67 20 6d 61 | 69 6c 2e 22 29 0a 28 64 |nding ma|il.").(d|
|00000270| 65 66 76 61 72 20 66 65 | 65 64 6d 61 69 6c 2d 6e |efvar fe|edmail-n|
|00000280| 75 6b 65 2d 62 63 63 20 | 74 20 22 5c 0a 2a 4e 6f |uke-bcc |t "\.*No|
|00000290| 6e 2d 6e 69 6c 20 6d 65 | 61 6e 73 20 67 65 74 20 |n-nil me|ans get |
|000002a0| 72 69 64 20 6f 66 20 74 | 68 65 20 42 43 43 3a 20 |rid of t|he BCC: |
|000002b0| 6c 69 6e 65 73 20 66 72 | 6f 6d 20 74 68 65 20 6d |lines fr|om the m|
|000002c0| 65 73 73 61 67 65 20 68 | 65 61 64 65 72 0a 74 65 |essage h|eader.te|
|000002d0| 78 74 20 62 65 66 6f 72 | 65 20 73 65 6e 64 69 6e |xt befor|e sendin|
|000002e0| 67 20 74 68 65 20 6d 61 | 69 6c 2e 20 20 49 6e 20 |g the ma|il.  In |
|000002f0| 61 6e 79 20 63 61 73 65 | 2c 20 74 68 65 20 42 43 |any case|, the BC|
|00000300| 43 3a 20 6c 69 6e 65 73 | 20 64 6f 0a 70 61 72 74 |C: lines| do.part|
|00000310| 69 63 69 70 61 74 65 20 | 69 6e 20 74 68 65 20 63 |icipate |in the c|
|00000320| 6f 6d 70 6f 73 65 64 20 | 61 64 64 72 65 73 73 20 |omposed |address |
|00000330| 6c 69 73 74 2e 20 20 59 | 6f 75 20 70 72 6f 62 61 |list.  Y|ou proba|
|00000340| 62 6c 79 20 77 61 6e 74 | 20 74 6f 20 6b 65 65 70 |bly want| to keep|
|00000350| 0a 74 68 65 6d 20 69 66 | 20 79 6f 75 27 72 65 20 |.them if| you're |
|00000360| 75 73 69 6e 67 20 73 65 | 6e 64 6d 61 69 6c 20 28 |using se|ndmail (|
|00000370| 73 65 65 20 66 65 65 64 | 6d 61 69 6c 2d 62 75 66 |see feed|mail-buf|
|00000380| 66 65 72 2d 65 61 74 69 | 6e 67 2d 66 75 6e 63 74 |fer-eati|ng-funct|
|00000390| 69 6f 6e 29 2e 22 29 0a | 28 64 65 66 76 61 72 20 |ion).").|(defvar |
|000003a0| 66 65 65 64 6d 61 69 6c | 2d 66 69 6c 6c 2d 74 6f |feedmail|-fill-to|
|000003b0| 2d 63 63 20 74 20 22 5c | 0a 2a 4e 6f 6e 2d 6e 69 |-cc t "\|.*Non-ni|
|000003c0| 6c 20 6d 65 61 6e 73 20 | 64 6f 20 73 6d 61 72 74 |l means |do smart|
|000003d0| 20 66 69 6c 6c 69 6e 67 | 20 28 6c 69 6e 65 2d 77 | filling| (line-w|
|000003e0| 72 61 70 70 69 6e 67 29 | 20 6f 66 20 54 4f 3a 20 |rapping)| of TO: |
|000003f0| 61 6e 64 20 43 43 3a 20 | 68 65 61 64 65 72 0a 6c |and CC: |header.l|
|00000400| 69 6e 65 73 2e 20 20 49 | 66 20 6e 69 6c 2c 20 74 |ines.  I|f nil, t|
|00000410| 68 65 20 6c 69 6e 65 73 | 20 61 72 65 20 6c 65 66 |he lines| are lef|
|00000420| 74 20 61 73 2d 69 73 2e | 20 20 54 68 65 20 66 69 |t as-is.|  The fi|
|00000430| 6c 6c 69 6e 67 20 69 73 | 20 64 6f 6e 65 20 61 66 |lling is| done af|
|00000440| 74 65 72 0a 6d 61 69 6c | 20 61 64 64 72 65 73 73 |ter.mail| address|
|00000450| 20 61 6c 69 61 73 20 65 | 78 70 61 6e 73 69 6f 6e | alias e|xpansion|
|00000460| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 66 65 65 64 |.").(def|var feed|
|00000470| 6d 61 69 6c 2d 66 69 6c | 6c 2d 74 6f 2d 63 63 2d |mail-fil|l-to-cc-|
|00000480| 66 69 6c 6c 2d 63 6f 6c | 75 6d 6e 20 64 65 66 61 |fill-col|umn defa|
|00000490| 75 6c 74 2d 66 69 6c 6c | 2d 63 6f 6c 75 6d 6e 20 |ult-fill|-column |
|000004a0| 22 5c 0a 2a 46 69 6c 6c | 20 63 6f 6c 75 6d 6e 20 |"\.*Fill| column |
|000004b0| 75 73 65 64 20 77 68 65 | 6e 20 77 72 61 70 70 69 |used whe|n wrappi|
|000004c0| 6e 67 20 6d 61 69 6c 20 | 54 4f 3a 20 61 6e 64 20 |ng mail |TO: and |
|000004d0| 43 43 3a 20 6c 69 6e 65 | 73 2e 22 29 0a 28 64 65 |CC: line|s.").(de|
|000004e0| 66 76 61 72 20 66 65 65 | 64 6d 61 69 6c 2d 6e 75 |fvar fee|dmail-nu|
|000004f0| 6b 65 2d 65 6d 70 74 79 | 2d 68 65 61 64 65 72 73 |ke-empty|-headers|
|00000500| 20 74 20 22 5c 0a 2a 49 | 66 20 6e 6f 6e 2d 6e 69 | t "\.*I|f non-ni|
|00000510| 6c 2c 20 68 65 61 64 65 | 72 73 20 77 69 74 68 20 |l, heade|rs with |
|00000520| 6e 6f 20 63 6f 6e 74 65 | 6e 74 73 20 61 72 65 20 |no conte|nts are |
|00000530| 72 65 6d 6f 76 65 64 20 | 66 72 6f 6d 20 74 68 65 |removed |from the|
|00000540| 20 6f 75 74 67 6f 69 6e | 67 0a 65 6d 61 69 6c 2e | outgoin|g.email.|
|00000550| 20 20 41 20 63 6f 6d 70 | 6c 65 74 65 6c 79 20 65 |  A comp|letely e|
|00000560| 6d 70 74 79 20 53 55 42 | 4a 45 43 54 3a 20 68 65 |mpty SUB|JECT: he|
|00000570| 61 64 65 72 20 69 73 20 | 61 6c 77 61 79 73 20 72 |ader is |always r|
|00000580| 65 6d 6f 76 65 64 2c 0a | 72 65 67 61 72 64 6c 65 |emoved,.|regardle|
|00000590| 73 73 20 6f 66 20 74 68 | 65 20 73 65 74 74 69 6e |ss of th|e settin|
|000005a0| 67 20 6f 66 20 74 68 69 | 73 20 76 61 72 69 61 62 |g of thi|s variab|
|000005b0| 6c 65 2e 20 20 54 68 65 | 20 6f 6e 6c 79 20 74 69 |le.  The| only ti|
|000005c0| 6d 65 20 79 6f 75 20 77 | 6f 75 6c 64 0a 77 61 6e |me you w|ould.wan|
|000005d0| 74 20 74 68 65 6d 20 6c | 65 66 74 20 69 6e 20 77 |t them l|eft in w|
|000005e0| 6f 75 6c 64 20 62 65 20 | 69 66 20 79 6f 75 20 75 |ould be |if you u|
|000005f0| 73 65 64 20 73 6f 6d 65 | 20 68 65 61 64 65 72 73 |sed some| headers|
|00000600| 20 77 68 6f 73 65 20 70 | 72 65 73 65 6e 63 65 0a | whose p|resence.|
|00000610| 69 6e 64 69 63 61 74 65 | 64 20 73 6f 6d 65 74 68 |indicate|d someth|
|00000620| 69 6e 67 20 72 61 74 68 | 65 72 20 74 68 61 6e 20 |ing rath|er than |
|00000630| 74 68 65 69 72 20 63 6f | 6e 74 65 6e 74 73 2e 22 |their co|ntents."|
|00000640| 29 0a 28 64 65 66 76 61 | 72 20 66 65 65 64 6d 61 |).(defva|r feedma|
|00000650| 69 6c 2d 73 65 6e 64 65 | 72 2d 6c 69 6e 65 20 6e |il-sende|r-line n|
|00000660| 69 6c 20 22 5c 0a 2a 49 | 66 20 6e 69 6c 2c 20 6e |il "\.*I|f nil, n|
|00000670| 6f 20 53 45 4e 44 45 52 | 3a 20 68 65 61 64 65 72 |o SENDER|: header|
|00000680| 20 69 73 20 66 6f 72 63 | 65 64 2e 20 20 49 66 20 | is forc|ed.  If |
|00000690| 6e 6f 6e 2d 6e 69 6c 20 | 61 6e 64 20 74 68 65 20 |non-nil |and the |
|000006a0| 65 6d 61 69 6c 0a 61 6c | 72 65 61 64 79 20 68 61 |email.al|ready ha|
|000006b0| 73 20 61 20 46 52 4f 4d | 3a 20 68 65 61 64 65 72 |s a FROM|: header|
|000006c0| 2c 20 61 20 53 45 4e 44 | 45 52 3a 20 68 65 61 64 |, a SEND|ER: head|
|000006d0| 65 72 20 69 73 20 66 6f | 72 63 65 64 20 77 69 74 |er is fo|rced wit|
|000006e0| 68 20 74 68 69 73 20 61 | 73 0a 69 74 73 20 63 6f |h this a|s.its co|
|000006f0| 6e 74 65 6e 74 73 2e 20 | 20 59 6f 75 20 63 61 6e |ntents. | You can|
|00000700| 20 70 72 6f 62 61 62 6c | 79 20 6c 65 61 76 65 20 | probabl|y leave |
|00000710| 74 68 69 73 20 6e 69 6c | 2c 20 62 75 74 20 69 66 |this nil|, but if|
|00000720| 20 79 6f 75 20 66 65 65 | 6c 20 6c 69 6b 65 0a 75 | you fee|l like.u|
|00000730| 73 69 6e 67 20 69 74 2c | 20 61 20 67 6f 6f 64 20 |sing it,| a good |
|00000740| 76 61 6c 75 65 20 77 6f | 75 6c 64 20 62 65 20 61 |value wo|uld be a|
|00000750| 20 66 75 6c 6c 79 2d 71 | 75 61 6c 69 66 69 65 64 | fully-q|ualified|
|00000760| 20 64 6f 6d 61 69 6e 20 | 6e 61 6d 65 20 66 6f 72 | domain |name for|
|00000770| 6d 20 6f 66 0a 79 6f 75 | 72 20 61 64 64 72 65 73 |m of.you|r addres|
|00000780| 73 2e 20 20 46 6f 72 20 | 65 78 61 6d 70 6c 65 2c |s.  For |example,|
|00000790| 20 77 69 6c 6c 69 61 6d | 2e 6a 2e 63 61 72 70 65 | william|.j.carpe|
|000007a0| 6e 74 65 72 40 61 74 74 | 2e 63 6f 6d 2e 20 20 44 |nter@att|.com.  D|
|000007b0| 6f 6e 27 74 0a 69 6e 63 | 6c 75 64 65 20 61 20 74 |on't.inc|lude a t|
|000007c0| 72 61 69 6c 69 6e 67 20 | 6e 65 77 6c 69 6e 65 20 |railing |newline |
|000007d0| 6f 72 20 74 68 65 20 6b | 65 79 77 6f 72 64 20 53 |or the k|eyword S|
|000007e0| 45 4e 44 45 52 3a 2e 20 | 20 54 68 65 79 27 72 65 |ENDER:. | They're|
|000007f0| 0a 61 75 74 6f 6d 61 74 | 69 63 61 6c 6c 79 20 70 |.automat|ically p|
|00000800| 72 6f 76 69 64 65 64 2e | 22 29 0a 28 64 65 66 76 |rovided.|").(defv|
|00000810| 61 72 20 66 65 65 64 6d | 61 69 6c 2d 66 72 6f 6d |ar feedm|ail-from|
|00000820| 2d 6c 69 6e 65 20 28 62 | 79 74 65 2d 63 6f 64 65 |-line (b|yte-code|
|00000830| 20 22 c0 20 c1 c2 20 c3 | c4 20 c5 b0 06 87 22 20 | ". .. .|. ...." |
|00000840| 5b 75 73 65 72 2d 6c 6f | 67 69 6e 2d 6e 61 6d 65 |[user-lo|gin-name|
|00000850| 20 22 40 22 20 73 79 73 | 74 65 6d 2d 6e 61 6d 65 | "@" sys|tem-name|
|00000860| 20 22 20 28 22 20 75 73 | 65 72 2d 66 75 6c 6c 2d | " (" us|er-full-|
|00000870| 6e 61 6d 65 20 22 29 22 | 5d 20 36 29 20 22 5c 0a |name ")"|] 6) "\.|
|00000880| 2a 49 66 20 6e 6f 6e 2d | 6e 69 6c 20 61 6e 64 20 |*If non-|nil and |
|00000890| 74 68 65 20 65 6d 61 69 | 6c 20 68 61 73 20 6e 6f |the emai|l has no|
|000008a0| 20 46 52 4f 4d 3a 20 68 | 65 61 64 65 72 2c 20 6f | FROM: h|eader, o|
|000008b0| 6e 65 20 77 69 6c 6c 20 | 62 65 20 66 6f 72 63 65 |ne will |be force|
|000008c0| 64 0a 77 69 74 68 20 74 | 68 69 73 20 61 73 20 69 |d.with t|his as i|
|000008d0| 74 73 20 63 6f 6e 74 65 | 6e 74 73 2e 20 41 20 67 |ts conte|nts. A g|
|000008e0| 6f 6f 64 20 76 61 6c 75 | 65 20 77 6f 75 6c 64 20 |ood valu|e would |
|000008f0| 62 65 20 61 20 66 75 6c | 6c 79 2d 71 75 61 6c 69 |be a ful|ly-quali|
|00000900| 66 69 65 64 0a 64 6f 6d | 61 69 6e 20 6e 61 6d 65 |fied.dom|ain name|
|00000910| 20 66 6f 72 6d 20 6f 66 | 20 79 6f 75 72 20 61 64 | form of| your ad|
|00000920| 64 72 65 73 73 2e 20 20 | 46 6f 72 20 65 78 61 6d |dress.  |For exam|
|00000930| 70 6c 65 2c 20 77 69 6c | 6c 69 61 6d 2e 6a 2e 63 |ple, wil|liam.j.c|
|00000940| 61 72 70 65 6e 74 65 72 | 40 61 74 74 2e 63 6f 6d |arpenter|@att.com|
|00000950| 2e 0a 28 54 68 65 20 64 | 65 66 61 75 6c 74 20 76 |..(The d|efault v|
|00000960| 61 6c 75 65 20 6f 66 20 | 74 68 69 73 20 76 61 72 |alue of |this var|
|00000970| 69 61 62 6c 65 20 69 73 | 20 70 72 6f 62 61 62 6c |iable is| probabl|
|00000980| 79 20 6e 6f 74 20 76 65 | 72 79 20 67 6f 6f 64 2c |y not ve|ry good,|
|00000990| 20 73 69 6e 63 65 0a 69 | 74 20 64 6f 65 73 6e 27 | since.i|t doesn'|
|000009a0| 74 20 68 61 76 65 20 61 | 20 64 6f 6d 61 69 6e 20 |t have a| domain |
|000009b0| 70 61 72 74 2e 29 20 20 | 44 6f 6e 27 74 20 69 6e |part.)  |Don't in|
|000009c0| 63 6c 75 64 65 20 61 20 | 74 72 61 69 6c 69 6e 67 |clude a |trailing|
|000009d0| 20 6e 65 77 6c 69 6e 65 | 20 6f 72 0a 74 68 65 20 | newline| or.the |
|000009e0| 6b 65 79 77 6f 72 64 20 | 46 52 4f 4d 3a 2e 20 20 |keyword |FROM:.  |
|000009f0| 54 68 65 79 27 72 65 20 | 61 75 74 6f 6d 61 74 69 |They're |automati|
|00000a00| 63 61 6c 6c 79 20 70 72 | 6f 76 69 64 65 64 2e 22 |cally pr|ovided."|
|00000a10| 29 0a 28 64 65 66 76 61 | 72 20 66 65 65 64 6d 61 |).(defva|r feedma|
|00000a20| 69 6c 2d 6d 65 73 73 61 | 67 65 2d 69 64 2d 67 65 |il-messa|ge-id-ge|
|00000a30| 6e 65 72 61 74 6f 72 20 | 6e 69 6c 20 22 5c 0a 2a |nerator |nil "\.*|
|00000a40| 49 66 20 6e 6f 6e 2d 6e | 69 6c 2c 20 73 68 6f 75 |If non-n|il, shou|
|00000a50| 6c 64 20 62 65 20 61 20 | 66 75 6e 63 74 69 6f 6e |ld be a |function|
|00000a60| 20 28 63 61 6c 6c 65 64 | 20 77 69 74 68 20 6e 6f | (called| with no|
|00000a70| 20 61 72 67 75 6d 65 6e | 74 73 29 20 77 68 69 63 | argumen|ts) whic|
|00000a80| 68 0a 77 69 6c 6c 20 67 | 65 6e 65 72 61 74 65 20 |h.will g|enerate |
|00000a90| 61 20 75 6e 69 71 75 65 | 20 6d 65 73 73 61 67 65 |a unique| message|
|00000aa0| 20 49 44 20 77 68 69 63 | 68 20 77 69 6c 6c 20 62 | ID whic|h will b|
|00000ab0| 65 20 69 6e 73 65 72 74 | 65 64 20 6f 6e 20 61 0a |e insert|ed on a.|
|00000ac0| 4d 65 73 73 61 67 65 2d | 49 44 3a 20 68 65 61 64 |Message-|ID: head|
|00000ad0| 65 72 2e 20 20 54 68 65 | 20 6d 65 73 73 61 67 65 |er.  The| message|
|00000ae0| 20 49 44 20 73 68 6f 75 | 6c 64 20 62 65 20 74 68 | ID shou|ld be th|
|00000af0| 65 20 72 65 74 75 72 6e | 20 76 61 6c 75 65 20 6f |e return| value o|
|00000b00| 66 20 74 68 65 0a 66 75 | 6e 63 74 69 6f 6e 2e 20 |f the.fu|nction. |
|00000b10| 20 44 6f 6e 27 74 20 69 | 6e 63 6c 75 64 65 20 74 | Don't i|nclude t|
|00000b20| 72 61 69 6c 69 6e 67 20 | 6e 65 77 6c 69 6e 65 2c |railing |newline,|
|00000b30| 20 6c 65 61 64 69 6e 67 | 20 73 70 61 63 65 2c 20 | leading| space, |
|00000b40| 6f 72 20 74 68 65 0a 6b | 65 79 77 6f 72 64 20 4d |or the.k|eyword M|
|00000b50| 45 53 53 41 47 45 2d 49 | 44 2e 20 20 54 68 65 79 |ESSAGE-I|D.  They|
|00000b60| 27 72 65 20 61 75 74 6f | 6d 61 74 69 63 61 6c 6c |'re auto|maticall|
|00000b70| 79 20 70 72 6f 76 69 64 | 65 64 2e 20 20 44 6f 20 |y provid|ed.  Do |
|00000b80| 69 6e 63 6c 75 64 65 0a | 73 75 72 72 6f 75 6e 64 |include.|surround|
|00000b90| 69 6e 67 20 3c 3e 20 62 | 72 61 63 6b 65 74 73 2e |ing <> b|rackets.|
|00000ba0| 20 20 46 6f 72 20 61 6e | 20 65 78 61 6d 70 6c 65 |  For an| example|
|00000bb0| 20 6f 66 20 61 20 6d 65 | 73 73 61 67 65 20 49 44 | of a me|ssage ID|
|00000bc0| 20 67 65 6e 65 72 61 74 | 69 6e 67 0a 66 75 6e 63 | generat|ing.func|
|00000bd0| 74 69 6f 6e 2c 20 79 6f | 75 20 63 6f 75 6c 64 20 |tion, yo|u could |
|00000be0| 6c 6f 6f 6b 20 61 74 20 | 74 68 65 20 47 4e 55 53 |look at |the GNUS|
|00000bf0| 20 66 75 6e 63 74 69 6f | 6e 20 67 6e 75 73 2d 69 | functio|n gnus-i|
|00000c00| 6e 65 77 73 2d 6d 65 73 | 73 61 67 65 2d 69 64 2e |news-mes|sage-id.|
|00000c10| 0a 57 68 65 6e 20 63 61 | 6c 6c 65 64 2c 20 74 68 |.When ca|lled, th|
|00000c20| 65 20 63 75 72 72 65 6e | 74 20 62 75 66 66 65 72 |e curren|t buffer|
|00000c30| 20 69 73 20 74 68 65 20 | 70 72 65 70 70 65 64 20 | is the |prepped |
|00000c40| 6f 75 74 67 6f 69 6e 67 | 20 6d 61 69 6c 20 62 75 |outgoing| mail bu|
|00000c50| 66 66 65 72 0a 28 74 68 | 65 20 66 75 6e 63 74 69 |ffer.(th|e functi|
|00000c60| 6f 6e 20 6d 61 79 20 69 | 6e 73 70 65 63 74 20 69 |on may i|nspect i|
|00000c70| 74 2c 20 62 75 74 20 73 | 68 6f 75 6c 64 6e 27 74 |t, but s|houldn't|
|00000c80| 20 6d 6f 64 69 66 79 20 | 69 74 29 2e 20 20 49 66 | modify |it).  If|
|00000c90| 20 74 68 65 20 72 65 74 | 75 72 6e 65 64 0a 76 61 | the ret|urned.va|
|00000ca0| 6c 75 65 20 64 6f 65 73 | 6e 27 74 20 63 6f 6e 74 |lue does|n't cont|
|00000cb0| 61 69 6e 20 61 6e 79 20 | 6e 6f 6e 2d 77 68 69 74 |ain any |non-whit|
|00000cc0| 65 73 70 61 63 65 20 63 | 68 61 72 61 63 74 65 72 |espace c|haracter|
|00000cd0| 73 2c 20 6e 6f 20 6d 65 | 73 73 61 67 65 20 49 44 |s, no me|ssage ID|
|00000ce0| 0a 68 65 61 64 65 72 20 | 69 73 20 67 65 6e 65 72 |.header |is gener|
|00000cf0| 61 74 65 64 2c 20 73 6f | 20 79 6f 75 20 63 6f 75 |ated, so| you cou|
|00000d00| 6c 64 20 67 65 6e 65 72 | 61 74 65 20 74 68 65 6d |ld gener|ate them|
|00000d10| 20 63 6f 6e 64 69 74 69 | 6f 6e 61 6c 6c 79 2c 0a | conditi|onally,.|
|00000d20| 62 61 73 65 64 20 6f 6e | 20 74 68 65 20 63 6f 6e |based on| the con|
|00000d30| 74 65 6e 74 73 20 6f 66 | 20 74 68 65 20 6d 61 69 |tents of| the mai|
|00000d40| 6c 2e 22 29 0a 28 66 73 | 65 74 20 27 66 65 65 64 |l.").(fs|et 'feed|
|00000d50| 6d 61 69 6c 2d 63 6f 6e | 66 69 72 6d 2d 61 64 64 |mail-con|firm-add|
|00000d60| 72 65 73 73 65 73 2d 68 | 6f 6f 6b 2d 65 78 61 6d |resses-h|ook-exam|
|00000d70| 70 6c 65 20 23 5b 6e 69 | 6c 20 22 c0 8b 87 22 20 |ple #[ni|l "..." |
|00000d80| 5b 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 09 |[((byte-|code "..|
|00000d90| 21 88 c2 c3 21 3f ad 83 | c4 c5 21 87 22 20 5b 64 |!...!?..|..!." [d|
|00000da0| 69 73 70 6c 61 79 2d 62 | 75 66 66 65 72 20 66 65 |isplay-b|uffer fe|
|00000db0| 65 64 6d 61 69 6c 2d 61 | 64 64 72 65 73 73 2d 62 |edmail-a|ddress-b|
|00000dc0| 75 66 66 65 72 20 79 2d | 6f 72 2d 6e 2d 70 20 22 |uffer y-|or-n-p "|
|00000dd0| 48 6f 77 20 64 6f 20 79 | 6f 75 20 6c 69 6b 65 20 |How do y|ou like |
|00000de0| 74 68 65 6d 20 61 70 70 | 6c 65 73 3f 20 22 20 65 |them app|les? " e|
|00000df0| 72 72 6f 72 20 22 53 65 | 6e 64 69 6e 67 2e 2e 2e |rror "Se|nding...|
|00000e00| 67 61 76 65 20 75 70 20 | 69 6e 20 6c 61 73 74 20 |gave up |in last |
|00000e10| 63 68 61 6e 63 65 20 68 | 6f 6f 6b 22 5d 20 32 29 |chance h|ook"] 2)|
|00000e20| 29 5d 20 31 20 22 5c 0a | 41 6e 20 65 78 61 6d 70 |)] 1 "\.|An examp|
|00000e30| 6c 65 20 6f 66 20 61 20 | 6c 61 73 74 20 63 68 61 |le of a |last cha|
|00000e40| 6e 63 65 20 68 6f 6f 6b | 20 74 68 61 74 20 73 68 |nce hook| that sh|
|00000e50| 6f 77 73 20 74 68 65 20 | 73 69 6d 70 6c 65 20 61 |ows the |simple a|
|00000e60| 64 64 72 65 73 73 65 73 | 0a 61 6e 64 20 67 65 74 |ddresses|.and get|
|00000e70| 73 20 61 20 63 6f 6e 66 | 69 72 6d 61 74 69 6f 6e |s a conf|irmation|
|00000e80| 2e 20 20 55 73 65 20 61 | 73 20 28 73 65 74 71 20 |.  Use a|s (setq |
|00000e90| 66 65 65 64 6d 61 69 6c | 2d 6c 61 73 74 2d 63 68 |feedmail|-last-ch|
|00000ea0| 61 6e 63 65 2d 68 6f 6f | 6b 0a 27 66 65 65 64 6d |ance-hoo|k.'feedm|
|00000eb0| 61 69 6c 2d 63 6f 6e 66 | 69 72 6d 2d 61 64 64 72 |ail-conf|irm-addr|
|00000ec0| 65 73 73 65 73 2d 68 6f | 6f 6b 2d 65 78 61 6d 70 |esses-ho|ok-examp|
|00000ed0| 6c 65 29 2e 22 5d 29 0a | 28 64 65 66 76 61 72 20 |le)."]).|(defvar |
|00000ee0| 66 65 65 64 6d 61 69 6c | 2d 6c 61 73 74 2d 63 68 |feedmail|-last-ch|
|00000ef0| 61 6e 63 65 2d 68 6f 6f | 6b 20 6e 69 6c 20 22 5c |ance-hoo|k nil "\|
|00000f00| 0a 2a 55 73 65 72 27 73 | 20 6c 61 73 74 20 6f 70 |.*User's| last op|
|00000f10| 70 6f 72 74 75 6e 69 74 | 79 20 74 6f 20 6d 6f 64 |portunit|y to mod|
|00000f20| 69 66 79 20 74 68 65 20 | 6d 65 73 73 61 67 65 20 |ify the |message |
|00000f30| 6f 6e 20 69 74 73 20 77 | 61 79 20 6f 75 74 2e 20 |on its w|ay out. |
|00000f40| 20 49 74 0a 68 61 73 20 | 61 6c 72 65 61 64 79 20 | It.has |already |
|00000f50| 68 61 64 20 61 6c 6c 20 | 74 68 65 20 68 65 61 64 |had all |the head|
|00000f60| 65 72 20 70 72 65 70 70 | 69 6e 67 20 66 72 6f 6d |er prepp|ing from|
|00000f70| 20 74 68 65 20 73 74 61 | 6e 64 61 72 64 20 70 61 | the sta|ndard pa|
|00000f80| 63 6b 61 67 65 2e 0a 54 | 68 65 20 6e 65 78 74 20 |ckage..T|he next |
|00000f90| 73 74 65 70 20 61 66 74 | 65 72 20 72 75 6e 6e 69 |step aft|er runni|
|00000fa0| 6e 67 20 74 68 65 20 68 | 6f 6f 6b 20 77 69 6c 6c |ng the h|ook will|
|00000fb0| 20 62 65 20 74 6f 20 70 | 75 73 68 20 74 68 65 20 | be to p|ush the |
|00000fc0| 62 75 66 66 65 72 20 69 | 6e 74 6f 20 61 0a 73 75 |buffer i|nto a.su|
|00000fd0| 62 70 72 6f 63 65 73 73 | 20 74 68 61 74 20 6d 61 |bprocess| that ma|
|00000fe0| 69 6c 73 20 74 68 65 20 | 6d 61 69 6c 2e 20 20 54 |ils the |mail.  T|
|00000ff0| 68 65 20 68 6f 6f 6b 20 | 6d 69 67 68 74 20 62 65 |he hook |might be|
|00001000| 20 69 6e 74 65 72 65 73 | 74 65 64 20 69 6e 20 74 | interes|ted in t|
|00001010| 68 65 73 65 0a 62 75 66 | 66 65 72 73 3a 20 20 28 |hese.buf|fers:  (|
|00001020| 31 29 20 66 65 65 64 6d | 61 69 6c 2d 70 72 65 70 |1) feedm|ail-prep|
|00001030| 70 65 64 2d 74 65 78 74 | 2d 62 75 66 66 65 72 20 |ped-text|-buffer |
|00001040| 63 6f 6e 74 61 69 6e 73 | 20 74 68 65 20 68 65 61 |contains| the hea|
|00001050| 64 65 72 20 61 6e 64 20 | 62 6f 64 79 0a 6f 66 20 |der and |body.of |
|00001060| 74 68 65 20 6d 65 73 73 | 61 67 65 2c 20 72 65 61 |the mess|age, rea|
|00001070| 64 79 20 74 6f 20 67 6f | 3b 20 20 28 32 29 20 66 |dy to go|;  (2) f|
|00001080| 65 65 64 6d 61 69 6c 2d | 61 64 64 72 65 73 73 2d |eedmail-|address-|
|00001090| 62 75 66 66 65 72 20 63 | 6f 6e 74 61 69 6e 73 20 |buffer c|ontains |
|000010a0| 74 68 65 0a 73 70 61 63 | 65 2d 73 65 70 61 72 61 |the.spac|e-separa|
|000010b0| 74 65 64 2c 20 73 69 6d | 70 6c 69 66 69 65 64 20 |ted, sim|plified |
|000010c0| 6c 69 73 74 20 6f 66 20 | 61 64 64 72 65 73 73 65 |list of |addresse|
|000010d0| 73 20 77 68 69 63 68 20 | 69 73 20 74 6f 20 62 65 |s which |is to be|
|000010e0| 20 67 69 76 65 6e 20 74 | 6f 0a 74 68 65 20 73 75 | given t|o.the su|
|000010f0| 62 70 72 6f 63 65 73 73 | 20 28 74 68 65 20 68 6f |bprocess| (the ho|
|00001100| 6f 6b 20 6d 61 79 20 63 | 68 61 6e 67 65 20 74 68 |ok may c|hange th|
|00001110| 65 6d 29 2e 20 20 66 65 | 65 64 6d 61 69 6c 2d 65 |em).  fe|edmail-e|
|00001120| 72 72 6f 72 2d 62 75 66 | 66 65 72 20 69 73 0a 61 |rror-buf|fer is.a|
|00001130| 6e 20 65 6d 70 74 79 20 | 62 75 66 66 65 72 20 69 |n empty |buffer i|
|00001140| 6e 74 65 6e 64 65 64 20 | 74 6f 20 73 6f 61 6b 20 |ntended |to soak |
|00001150| 75 70 20 65 72 72 6f 72 | 73 20 66 6f 72 20 64 69 |up error|s for di|
|00001160| 73 70 6c 61 79 20 74 6f | 20 74 68 65 20 75 73 65 |splay to| the use|
|00001170| 72 2e 0a 49 66 20 74 68 | 65 20 68 6f 6f 6b 20 61 |r..If th|e hook a|
|00001180| 6c 6c 6f 77 73 20 69 6e | 74 65 72 61 63 74 69 76 |llows in|teractiv|
|00001190| 65 20 61 63 74 69 76 69 | 74 79 2c 20 74 68 65 20 |e activi|ty, the |
|000011a0| 75 73 65 72 20 73 68 6f | 75 6c 64 20 6e 6f 74 20 |user sho|uld not |
|000011b0| 73 65 6e 64 20 6d 6f 72 | 65 0a 6d 61 69 6c 20 77 |send mor|e.mail w|
|000011c0| 68 69 6c 65 20 69 6e 20 | 74 68 65 20 68 6f 6f 6b |hile in |the hook|
|000011d0| 20 73 69 6e 63 65 20 73 | 6f 6d 65 20 6f 66 20 74 | since s|ome of t|
|000011e0| 68 65 20 69 6e 74 65 72 | 6e 61 6c 20 62 75 66 66 |he inter|nal buff|
|000011f0| 65 72 73 20 77 69 6c 6c | 20 62 65 20 72 65 75 73 |ers will| be reus|
|00001200| 65 64 2e 22 29 0a 28 64 | 65 66 76 61 72 20 66 65 |ed.").(d|efvar fe|
|00001210| 65 64 6d 61 69 6c 2d 62 | 75 66 66 65 72 2d 65 61 |edmail-b|uffer-ea|
|00001220| 74 69 6e 67 2d 66 75 6e | 63 74 69 6f 6e 20 27 66 |ting-fun|ction 'f|
|00001230| 65 65 64 6d 61 69 6c 2d | 62 75 66 66 65 72 2d 74 |eedmail-|buffer-t|
|00001240| 6f 2d 62 69 6e 6d 61 69 | 6c 20 22 5c 0a 2a 46 75 |o-binmai|l "\.*Fu|
|00001250| 6e 63 74 69 6f 6e 20 75 | 73 65 64 20 74 6f 20 73 |nction u|sed to s|
|00001260| 65 6e 64 20 74 68 65 20 | 70 72 65 70 70 65 64 20 |end the |prepped |
|00001270| 62 75 66 66 65 72 20 74 | 6f 20 61 20 73 75 62 70 |buffer t|o a subp|
|00001280| 72 6f 63 65 73 73 2e 20 | 20 54 68 65 0a 66 75 6e |rocess. | The.fun|
|00001290| 63 74 69 6f 6e 27 73 20 | 74 68 72 65 65 20 28 6d |ction's |three (m|
|000012a0| 61 6e 64 61 74 6f 72 79 | 29 20 61 72 67 75 6d 65 |andatory|) argume|
|000012b0| 6e 74 73 20 61 72 65 3a | 20 28 31 29 20 74 68 65 |nts are:| (1) the|
|000012c0| 20 62 75 66 66 65 72 20 | 63 6f 6e 74 61 69 6e 69 | buffer |containi|
|000012d0| 6e 67 0a 74 68 65 20 70 | 72 65 70 70 65 64 20 6d |ng.the p|repped m|
|000012e0| 65 73 73 61 67 65 3b 20 | 28 32 29 20 61 20 62 75 |essage; |(2) a bu|
|000012f0| 66 66 65 72 20 77 68 65 | 72 65 20 65 72 72 6f 72 |ffer whe|re error|
|00001300| 73 20 73 68 6f 75 6c 64 | 20 62 65 20 64 69 72 65 |s should| be dire|
|00001310| 63 74 65 64 3b 20 61 6e | 64 0a 28 33 29 20 61 20 |cted; an|d.(3) a |
|00001320| 73 74 72 69 6e 67 20 63 | 6f 6e 74 61 69 6e 69 6e |string c|ontainin|
|00001330| 67 20 74 68 65 20 73 70 | 61 63 65 2d 73 65 70 61 |g the sp|ace-sepa|
|00001340| 72 61 74 65 64 20 6c 69 | 73 74 20 6f 66 20 73 69 |rated li|st of si|
|00001350| 6d 70 6c 69 66 69 65 64 | 0a 61 64 64 72 65 73 73 |mplified|.address|
|00001360| 65 73 2e 20 20 54 77 6f | 20 70 6f 70 75 6c 61 72 |es.  Two| popular|
|00001370| 20 63 68 6f 69 63 65 73 | 20 66 6f 72 20 74 68 69 | choices| for thi|
|00001380| 73 20 61 72 65 20 27 66 | 65 65 64 6d 61 69 6c 2d |s are 'f|eedmail-|
|00001390| 62 75 66 66 65 72 2d 74 | 6f 2d 62 69 6e 6d 61 69 |buffer-t|o-binmai|
|000013a0| 6c 0a 61 6e 64 20 27 66 | 65 65 64 6d 61 69 6c 2d |l.and 'f|eedmail-|
|000013b0| 62 75 66 66 65 72 2d 74 | 6f 2d 73 65 6e 64 6d 61 |buffer-t|o-sendma|
|000013c0| 69 6c 2e 20 20 49 66 20 | 79 6f 75 20 75 73 65 20 |il.  If |you use |
|000013d0| 74 68 65 20 73 65 6e 64 | 6d 61 69 6c 20 66 6f 72 |the send|mail for|
|000013e0| 6d 2c 20 79 6f 75 0a 70 | 72 6f 62 61 62 6c 79 20 |m, you.p|robably |
|000013f0| 77 61 6e 74 20 74 6f 20 | 73 65 74 20 66 65 65 64 |want to |set feed|
|00001400| 6d 61 69 6c 2d 6e 75 6b | 65 2d 62 63 63 20 74 6f |mail-nuk|e-bcc to|
|00001410| 20 6e 69 6c 2e 20 20 49 | 66 20 79 6f 75 20 75 73 | nil.  I|f you us|
|00001420| 65 20 74 68 65 20 62 69 | 6e 6d 61 69 6c 0a 66 6f |e the bi|nmail.fo|
|00001430| 72 6d 2c 20 63 68 65 63 | 6b 20 74 68 65 20 76 61 |rm, chec|k the va|
|00001440| 6c 75 65 20 6f 66 20 66 | 65 65 64 6d 61 69 6c 2d |lue of f|eedmail-|
|00001450| 62 69 6e 6d 61 69 6c 2d | 74 65 6d 70 6c 61 74 65 |binmail-|template|
|00001460| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 66 65 65 64 |.").(def|var feed|
|00001470| 6d 61 69 6c 2d 62 69 6e | 6d 61 69 6c 2d 74 65 6d |mail-bin|mail-tem|
|00001480| 70 6c 61 74 65 20 28 62 | 79 74 65 2d 63 6f 64 65 |plate (b|yte-code|
|00001490| 20 22 08 ab 82 c1 87 c2 | 87 22 20 5b 6d 61 69 6c | "......|." [mail|
|000014a0| 2d 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 2f 62 |-interac|tive "/b|
|000014b0| 69 6e 2f 6d 61 69 6c 20 | 25 73 22 20 22 2f 62 69 |in/mail |%s" "/bi|
|000014c0| 6e 2f 72 6d 61 69 6c 20 | 25 73 22 5d 20 31 29 20 |n/rmail |%s"] 1) |
|000014d0| 22 5c 0a 2a 43 6f 6d 6d | 61 6e 64 20 74 65 6d 70 |"\.*Comm|and temp|
|000014e0| 6c 61 74 65 20 66 6f 72 | 20 74 68 65 20 73 75 62 |late for| the sub|
|000014f0| 70 72 6f 63 65 73 73 20 | 77 68 69 63 68 20 77 69 |process |which wi|
|00001500| 6c 6c 20 67 65 74 20 72 | 69 64 20 6f 66 20 74 68 |ll get r|id of th|
|00001510| 65 0a 6d 61 69 6c 2e 20 | 20 49 74 20 63 61 6e 20 |e.mail. | It can |
|00001520| 72 65 73 75 6c 74 20 69 | 6e 20 61 6e 79 20 63 6f |result i|n any co|
|00001530| 6d 6d 61 6e 64 20 75 6e | 64 65 72 73 74 61 6e 64 |mmand un|derstand|
|00001540| 61 62 6c 65 20 62 79 20 | 2f 62 69 6e 2f 73 68 2e |able by |/bin/sh.|
|00001550| 20 20 54 68 65 0a 73 69 | 6e 67 6c 65 20 27 25 73 |  The.si|ngle '%s|
|00001560| 27 2c 20 69 66 20 70 72 | 65 73 65 6e 74 2c 20 67 |', if pr|esent, g|
|00001570| 65 74 73 20 72 65 70 6c | 61 63 65 64 20 62 79 20 |ets repl|aced by |
|00001580| 74 68 65 20 73 70 61 63 | 65 2d 73 65 70 61 72 61 |the spac|e-separa|
|00001590| 74 65 64 2c 0a 73 69 6d | 70 6c 69 66 69 65 64 20 |ted,.sim|plified |
|000015a0| 6c 69 73 74 20 6f 66 20 | 61 64 64 72 65 73 73 65 |list of |addresse|
|000015b0| 65 73 2e 20 20 55 73 65 | 64 20 69 6e 20 66 65 65 |es.  Use|d in fee|
|000015c0| 64 6d 61 69 6c 2d 62 75 | 66 66 65 72 2d 74 6f 2d |dmail-bu|ffer-to-|
|000015d0| 62 69 6e 6d 61 69 6c 20 | 74 6f 0a 66 6f 72 6d 20 |binmail |to.form |
|000015e0| 74 68 65 20 73 68 65 6c | 6c 20 63 6f 6d 6d 61 6e |the shel|l comman|
|000015f0| 64 20 77 68 69 63 68 20 | 77 69 6c 6c 20 72 65 63 |d which |will rec|
|00001600| 65 69 76 65 20 74 68 65 | 20 63 6f 6e 74 65 6e 74 |eive the| content|
|00001610| 73 20 6f 66 20 74 68 65 | 20 70 72 65 70 70 65 64 |s of the| prepped|
|00001620| 0a 62 75 66 66 65 72 20 | 61 73 20 73 74 64 69 6e |.buffer |as stdin|
|00001630| 2e 20 20 49 66 20 79 6f | 75 27 64 20 6c 69 6b 65 |.  If yo|u'd like|
|00001640| 20 79 6f 75 72 20 65 72 | 72 6f 72 73 20 74 6f 20 | your er|rors to |
|00001650| 63 6f 6d 65 20 62 61 63 | 6b 20 61 73 20 6d 61 69 |come bac|k as mai|
|00001660| 6c 0a 69 6e 73 74 65 61 | 64 20 6f 66 20 69 6d 6d |l.instea|d of imm|
|00001670| 65 64 69 61 74 65 6c 79 | 20 69 6e 20 61 20 62 75 |ediately| in a bu|
|00001680| 66 66 65 72 2c 20 74 72 | 79 20 2f 62 69 6e 2f 72 |ffer, tr|y /bin/r|
|00001690| 6d 61 69 6c 20 69 6e 73 | 74 65 61 64 20 6f 66 0a |mail ins|tead of.|
|000016a0| 2f 62 69 6e 2f 6d 61 69 | 6c 20 28 74 68 69 73 20 |/bin/mai|l (this |
|000016b0| 63 61 6e 20 62 65 20 61 | 63 63 6f 6d 70 6c 69 73 |can be a|ccomplis|
|000016c0| 68 65 64 20 62 79 20 6b | 65 65 70 69 6e 67 20 74 |hed by k|eeping t|
|000016d0| 68 65 20 64 65 66 61 75 | 6c 74 20 6e 69 6c 20 73 |he defau|lt nil s|
|000016e0| 65 74 74 69 6e 67 0a 6f | 66 20 6d 61 69 6c 2d 69 |etting.o|f mail-i|
|000016f0| 6e 74 65 72 61 63 74 69 | 76 65 29 2e 20 20 59 6f |nteracti|ve).  Yo|
|00001700| 75 20 6d 69 67 68 74 20 | 61 6c 73 6f 20 6c 69 6b |u might |also lik|
|00001710| 65 20 74 6f 20 63 6f 6e | 73 75 6c 74 20 6c 6f 63 |e to con|sult loc|
|00001720| 61 6c 20 6d 61 69 6c 0a | 65 78 70 65 72 74 73 20 |al mail.|experts |
|00001730| 66 6f 72 20 61 6e 79 20 | 6f 74 68 65 72 20 69 6e |for any |other in|
|00001740| 74 65 72 65 73 74 69 6e | 67 20 63 6f 6d 6d 61 6e |terestin|g comman|
|00001750| 64 20 6c 69 6e 65 20 70 | 6f 73 73 69 62 69 6c 69 |d line p|ossibili|
|00001760| 74 69 65 73 2e 22 29 0a | 28 66 73 65 74 20 27 66 |ties.").|(fset 'f|
|00001770| 65 65 64 6d 61 69 6c 2d | 62 75 66 66 65 72 2d 74 |eedmail-|buffer-t|
|00001780| 6f 2d 62 69 6e 6d 61 69 | 6c 20 23 5b 28 70 72 65 |o-binmai|l #[(pre|
|00001790| 70 70 65 64 2d 6d 61 69 | 6c 2d 62 75 66 66 65 72 |pped-mai|l-buffer|
|000017a0| 20 6d 61 69 6c 2d 65 72 | 72 6f 72 2d 62 75 66 66 | mail-er|ror-buff|
|000017b0| 65 72 20 73 69 6d 70 6c | 65 2d 61 64 64 72 65 73 |er simpl|e-addres|
|000017c0| 73 2d 6c 69 73 74 29 20 | 22 8a 08 71 88 c1 c2 c3 |s-list) |"..q....|
|000017d0| 65 64 c4 c5 0e 06 c5 c7 | c8 0e 09 0e 5c 6e 5c 22 |ed......|....\n\"|
|000017e0| af 08 21 5c 22 29 87 22 | 20 5b 70 72 65 70 70 65 |..!\")."| [preppe|
|000017f0| 64 2d 6d 61 69 6c 2d 62 | 75 66 66 65 72 20 61 70 |d-mail-b|uffer ap|
|00001800| 70 6c 79 20 63 61 6c 6c | 2d 70 72 6f 63 65 73 73 |ply call|-process|
|00001810| 2d 72 65 67 69 6f 6e 20 | 61 70 70 65 6e 64 20 22 |-region |append "|
|00001820| 2f 62 69 6e 2f 73 68 22 | 20 6e 69 6c 20 6d 61 69 |/bin/sh"| nil mai|
|00001830| 6c 2d 65 72 72 6f 72 2d | 62 75 66 66 65 72 20 22 |l-error-|buffer "|
|00001840| 2d 63 22 20 66 6f 72 6d | 61 74 20 66 65 65 64 6d |-c" form|at feedm|
|00001850| 61 69 6c 2d 62 69 6e 6d | 61 69 6c 2d 74 65 6d 70 |ail-binm|ail-temp|
|00001860| 6c 61 74 65 20 73 69 6d | 70 6c 65 2d 61 64 64 72 |late sim|ple-addr|
|00001870| 65 73 73 2d 6c 69 73 74 | 5d 20 31 33 20 22 5c 0a |ess-list|] 13 "\.|
|00001880| 46 75 6e 63 74 69 6f 6e | 20 77 68 69 63 68 20 61 |Function| which a|
|00001890| 63 74 75 61 6c 6c 79 20 | 63 61 6c 6c 73 20 2f 62 |ctually |calls /b|
|000018a0| 69 6e 2f 6d 61 69 6c 20 | 61 73 20 61 20 73 75 62 |in/mail |as a sub|
|000018b0| 70 72 6f 63 65 73 73 20 | 61 6e 64 20 66 65 65 64 |process |and feed|
|000018c0| 73 20 74 68 65 20 62 75 | 66 66 65 72 20 74 6f 20 |s the bu|ffer to |
|000018d0| 69 74 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 66 65 |it."]).(|fset 'fe|
|000018e0| 65 64 6d 61 69 6c 2d 62 | 75 66 66 65 72 2d 74 6f |edmail-b|uffer-to|
|000018f0| 2d 73 65 6e 64 6d 61 69 | 6c 20 23 5b 28 70 72 65 |-sendmai|l #[(pre|
|00001900| 70 70 65 64 2d 6d 61 69 | 6c 2d 62 75 66 66 65 72 |pped-mai|l-buffer|
|00001910| 20 66 65 65 64 6d 61 69 | 6c 2d 65 72 72 6f 72 2d | feedmai|l-error-|
|00001920| 62 75 66 66 65 72 20 73 | 69 6d 70 6c 65 2d 61 64 |buffer s|imple-ad|
|00001930| 64 72 65 73 73 2d 6c 69 | 73 74 29 20 22 8a 08 71 |dress-li|st) "..q|
|00001940| 88 c1 c2 c3 65 64 c4 c5 | 21 ab 83 0d aa 81 c6 c7 |....ed..|!.......|
|00001950| 0e 08 c7 c9 ca af 08 cb | 20 cc 9a ad 84 cd ce 20 |........| ...... |
|00001960| 44 0e 0f 3f ad 81 d0 23 | 5c 22 29 87 22 20 5b 70 |D..?...#|\")." [p|
|00001970| 72 65 70 70 65 64 2d 6d | 61 69 6c 2d 62 75 66 66 |repped-m|ail-buff|
|00001980| 65 72 20 61 70 70 6c 79 | 20 63 61 6c 6c 2d 70 72 |er apply| call-pr|
|00001990| 6f 63 65 73 73 2d 72 65 | 67 69 6f 6e 20 61 70 70 |ocess-re|gion app|
|000019a0| 65 6e 64 20 62 6f 75 6e | 64 70 20 73 65 6e 64 6d |end boun|dp sendm|
|000019b0| 61 69 6c 2d 70 72 6f 67 | 72 61 6d 20 22 2f 75 73 |ail-prog|ram "/us|
|000019c0| 72 2f 6c 69 62 2f 73 65 | 6e 64 6d 61 69 6c 22 20 |r/lib/se|ndmail" |
|000019d0| 6e 69 6c 20 66 65 65 64 | 6d 61 69 6c 2d 65 72 72 |nil feed|mail-err|
|000019e0| 6f 72 2d 62 75 66 66 65 | 72 20 22 2d 6f 69 22 20 |or-buffe|r "-oi" |
|000019f0| 22 2d 74 22 20 75 73 65 | 72 2d 72 65 61 6c 2d 6c |"-t" use|r-real-l|
|00001a00| 6f 67 69 6e 2d 6e 61 6d | 65 20 22 72 6f 6f 74 22 |ogin-nam|e "root"|
|00001a10| 20 22 2d 66 22 20 75 73 | 65 72 2d 6c 6f 67 69 6e | "-f" us|er-login|
|00001a20| 2d 6e 61 6d 65 20 6d 61 | 69 6c 2d 69 6e 74 65 72 |-name ma|il-inter|
|00001a30| 61 63 74 69 76 65 20 28 | 22 2d 6f 65 6d 22 20 22 |active (|"-oem" "|
|00001a40| 2d 6f 64 62 22 29 5d 20 | 31 31 20 22 5c 0a 46 75 |-odb")] |11 "\.Fu|
|00001a50| 6e 63 74 69 6f 6e 20 77 | 68 69 63 68 20 61 63 74 |nction w|hich act|
|00001a60| 75 61 6c 6c 79 20 63 61 | 6c 6c 73 20 73 65 6e 64 |ually ca|lls send|
|00001a70| 6d 61 69 6c 20 61 73 20 | 61 20 73 75 62 70 72 6f |mail as |a subpro|
|00001a80| 63 65 73 73 20 61 6e 64 | 20 66 65 65 64 73 20 74 |cess and| feeds t|
|00001a90| 68 65 20 62 75 66 66 65 | 72 20 74 6f 20 69 74 2e |he buffe|r to it.|
|00001aa0| 22 5d 29 0a 28 66 73 65 | 74 20 27 66 65 65 64 6d |"]).(fse|t 'feedm|
|00001ab0| 61 69 6c 2d 73 65 6e 64 | 2d 69 74 20 23 5b 6e 69 |ail-send|-it #[ni|
|00001ac0| 6c 20 22 c0 19 c2 c3 21 | 1c c2 c5 21 1e 06 c2 c7 |l "....!|...!....|
|00001ad0| 21 1e 08 70 1e 09 ca 1e | 0b ca 1e 0c cd 8e 8a 0e |!..p....|........|
|00001ae0| 06 71 88 ce 20 88 cf 0e | 09 21 88 64 62 88 68 d0 |.q.. ...|.!.db.h.|
|00001af0| 55 ac 83 d0 63 88 65 62 | 88 d1 d2 d3 0e 14 21 d5 |U...c.eb|......!.|
|00001b00| 51 21 88 d6 d5 21 88 d7 | 20 16 0c d8 d9 21 ab 8a |Q!...!..| ....!..|
|00001b10| 0e 1a ab 86 d9 65 0e 0c | 5c 22 88 0e 1b ab 85 dc |.....e..|\"......|
|00001b20| 0e 0c 21 88 65 62 88 d1 | dd 0e 0c c0 23 ab 8c 60 |..!.eb..|....#..`|
|00001b30| 0e 0c 57 ab 86 d6 d5 21 | 88 aa 6c c0 1e 0b de 0e |..W....!|..l.....|
|00001b40| 06 65 0e 0c 23 88 8a 0e | 08 71 88 65 62 88 d1 df |.e..#...|.q.eb...|
|00001b50| 64 c0 23 ac 84 e0 e1 21 | 88 29 0e 5c 22 ab 85 e3 |d.#....!|.).\"...|
|00001b60| 0e 0c 21 88 65 62 88 d1 | e4 0e 0c c0 23 ab 85 e5 |..!.eb..|....#...|
|00001b70| 0e 0c 21 88 65 62 88 d1 | e6 0e 0c c0 23 ab 9d 0e |..!.eb..|....#...|
|00001b80| 27 ab a7 8a 65 62 88 d1 | e8 0e 0c c0 23 29 ac 9a |'...eb..|....#)..|
|00001b90| e9 79 88 ea 0e 27 d5 b1 | 03 88 aa 8e 0e 2b ab 8a |.y...'..|.....+..|
|00001ba0| 65 62 88 ec 0e 2b d5 b1 | 03 88 65 62 88 d1 ed 0e |eb...+..|..eb....|
|00001bb0| 0c c0 23 ab 84 d6 ee 21 | 88 65 62 88 0e 2f ab 8e |..#....!|.eb../..|
|00001bc0| d1 f0 0e 0c c0 23 ab 86 | d6 ee 21 88 aa 72 29 0e |.....#..|..!..r).|
|00001bd0| 31 ab a9 65 62 88 d1 f2 | 0e 0c c0 23 ab 84 d6 ee |1..eb...|...#....|
|00001be0| 21 88 0e 31 20 16 33 65 | 62 88 0e 33 ab 8e f4 f5 |!..1 .3e|b..3....|
|00001bf0| 0e 33 5c 22 ab 87 f6 0e | 33 d5 b1 03 88 8a 0c 71 |.3\"....|3......q|
|00001c00| 88 ce 20 88 29 f7 f8 21 | 88 0e 39 ab 86 fa 0e 06 |.. .)..!|..9.....|
|00001c10| 21 ab 90 0e 3b 0e 06 0c | 8a 0e 08 71 88 fc 20 29 |!...;...|...q.. )|
|00001c20| 23 aa 83 e0 fd 21 2e 09 | 87 22 20 5b 74 20 64 65 |#....!..|." [t de|
|00001c30| 66 61 75 6c 74 2d 63 61 | 73 65 2d 66 6f 6c 64 2d |fault-ca|se-fold-|
|00001c40| 73 65 61 72 63 68 20 67 | 65 74 2d 62 75 66 66 65 |search g|et-buffe|
|00001c50| 72 2d 63 72 65 61 74 65 | 20 22 20 2a 4f 75 74 67 |r-create| " *Outg|
|00001c60| 6f 69 6e 67 20 45 6d 61 | 69 6c 20 45 72 72 6f 72 |oing Ema|il Error|
|00001c70| 73 2a 22 20 66 65 65 64 | 6d 61 69 6c 2d 65 72 72 |s*" feed|mail-err|
|00001c80| 6f 72 2d 62 75 66 66 65 | 72 20 22 20 2a 4f 75 74 |or-buffe|r " *Out|
|00001c90| 67 6f 69 6e 67 20 45 6d | 61 69 6c 20 54 65 78 74 |going Em|ail Text|
|00001ca0| 2a 22 20 66 65 65 64 6d | 61 69 6c 2d 70 72 65 70 |*" feedm|ail-prep|
|00001cb0| 70 65 64 2d 74 65 78 74 | 2d 62 75 66 66 65 72 20 |ped-text|-buffer |
|00001cc0| 22 20 2a 4f 75 74 67 6f | 69 6e 67 20 45 6d 61 69 |" *Outgo|ing Emai|
|00001cd0| 6c 20 41 64 64 72 65 73 | 73 20 4c 69 73 74 2a 22 |l Addres|s List*"|
|00001ce0| 20 66 65 65 64 6d 61 69 | 6c 2d 61 64 64 72 65 73 | feedmai|l-addres|
|00001cf0| 73 2d 62 75 66 66 65 72 | 20 66 65 65 64 6d 61 69 |s-buffer| feedmai|
|00001d00| 6c 2d 72 61 77 2d 74 65 | 78 74 2d 62 75 66 66 65 |l-raw-te|xt-buffe|
|00001d10| 72 20 6e 69 6c 20 63 61 | 73 65 2d 66 6f 6c 64 2d |r nil ca|se-fold-|
|00001d20| 73 65 61 72 63 68 20 65 | 6e 64 2d 6f 66 2d 68 65 |search e|nd-of-he|
|00001d30| 61 64 65 72 73 2d 6d 61 | 72 6b 65 72 20 28 28 62 |aders-ma|rker ((b|
|00001d40| 79 74 65 2d 63 6f 64 65 | 20 22 c0 09 21 88 c0 5c |yte-code| "..!..\|
|00001d50| 6e 21 88 0b 71 88 c4 20 | c5 55 ab 86 c0 0b 21 88 |n!..q.. |.U....!.|
|00001d60| aa 88 c6 0b 21 88 c7 c8 | 21 88 0e 09 71 87 22 20 |....!...|!...q." |
|00001d70| 5b 6b 69 6c 6c 2d 62 75 | 66 66 65 72 20 66 65 65 |[kill-bu|ffer fee|
|00001d80| 64 6d 61 69 6c 2d 70 72 | 65 70 70 65 64 2d 74 65 |dmail-pr|epped-te|
|00001d90| 78 74 2d 62 75 66 66 65 | 72 20 66 65 65 64 6d 61 |xt-buffe|r feedma|
|00001da0| 69 6c 2d 61 64 64 72 65 | 73 73 2d 62 75 66 66 65 |il-addre|ss-buffe|
|00001db0| 72 20 66 65 65 64 6d 61 | 69 6c 2d 65 72 72 6f 72 |r feedma|il-error|
|00001dc0| 2d 62 75 66 66 65 72 20 | 62 75 66 66 65 72 2d 73 |-buffer |buffer-s|
|00001dd0| 69 7a 65 20 30 20 64 69 | 73 70 6c 61 79 2d 62 75 |ize 0 di|splay-bu|
|00001de0| 66 66 65 72 20 65 72 72 | 6f 72 20 22 53 65 6e 64 |ffer err|or "Send|
|00001df0| 69 6e 67 2e 2e 2e 66 61 | 69 6c 65 64 22 20 66 65 |ing...fa|iled" fe|
|00001e00| 65 64 6d 61 69 6c 2d 72 | 61 77 2d 74 65 78 74 2d |edmail-r|aw-text-|
|00001e10| 62 75 66 66 65 72 5d 20 | 32 29 29 20 65 72 61 73 |buffer] |2)) eras|
|00001e20| 65 2d 62 75 66 66 65 72 | 20 69 6e 73 65 72 74 2d |e-buffer| insert-|
|00001e30| 62 75 66 66 65 72 2d 73 | 75 62 73 74 72 69 6e 67 |buffer-s|ubstring|
|00001e40| 20 31 30 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f | 10 re-s|earch-fo|
|00001e50| 72 77 61 72 64 20 22 5e | 22 20 72 65 67 65 78 70 |rward "^|" regexp|
|00001e60| 2d 71 75 6f 74 65 20 6d | 61 69 6c 2d 68 65 61 64 |-quote m|ail-head|
|00001e70| 65 72 2d 73 65 70 61 72 | 61 74 6f 72 20 22 5c 6e |er-separ|ator "\n|
|00001e80| 22 20 72 65 70 6c 61 63 | 65 2d 6d 61 74 63 68 20 |" replac|e-match |
|00001e90| 70 6f 69 6e 74 2d 6d 61 | 72 6b 65 72 20 66 62 6f |point-ma|rker fbo|
|00001ea0| 75 6e 64 70 20 65 78 70 | 61 6e 64 2d 6d 61 69 6c |undp exp|and-mail|
|00001eb0| 2d 61 6c 69 61 73 65 73 | 20 6d 61 69 6c 2d 61 6c |-aliases| mail-al|
|00001ec0| 69 61 73 65 73 20 66 65 | 65 64 6d 61 69 6c 2d 66 |iases fe|edmail-f|
|00001ed0| 69 6c 6c 2d 74 6f 2d 63 | 63 20 66 65 65 64 6d 61 |ill-to-c|c feedma|
|00001ee0| 69 6c 2d 66 69 6c 6c 2d | 74 6f 2d 63 63 2d 66 75 |il-fill-|to-cc-fu|
|00001ef0| 6e 63 74 69 6f 6e 20 22 | 5c 6e 5c 6e 5c 6e 2a 22 |nction "|\n\n\n*"|
|00001f00| 20 66 65 65 64 6d 61 69 | 6c 2d 64 65 64 75 63 65 | feedmai|l-deduce|
|00001f10| 2d 61 64 64 72 65 73 73 | 2d 6c 69 73 74 20 22 5c |-address|-list "\|
|00001f20| 5c 53 2d 22 20 65 72 72 | 6f 72 20 22 53 65 6e 64 |\S-" err|or "Send|
|00001f30| 69 6e 67 2e 2e 2e 61 62 | 61 6e 64 6f 6e 65 64 2c |ing...ab|andoned,|
|00001f40| 20 6e 6f 20 61 64 64 72 | 65 73 73 65 65 73 21 22 | no addr|essees!"|
|00001f50| 20 66 65 65 64 6d 61 69 | 6c 2d 6e 75 6b 65 2d 62 | feedmai|l-nuke-b|
|00001f60| 63 63 20 66 65 65 64 6d | 61 69 6c 2d 64 6f 2d 62 |cc feedm|ail-do-b|
|00001f70| 63 63 20 22 5e 46 43 43 | 3a 22 20 6d 61 69 6c 2d |cc "^FCC|:" mail-|
|00001f80| 64 6f 2d 66 63 63 20 22 | 5e 46 52 4f 4d 3a 22 20 |do-fcc "|^FROM:" |
|00001f90| 66 65 65 64 6d 61 69 6c | 2d 73 65 6e 64 65 72 2d |feedmail|-sender-|
|00001fa0| 6c 69 6e 65 20 22 5e 53 | 45 4e 44 45 52 3a 22 20 |line "^S|ENDER:" |
|00001fb0| 31 20 22 53 65 6e 64 65 | 72 3a 20 22 20 66 65 65 |1 "Sende|r: " fee|
|00001fc0| 64 6d 61 69 6c 2d 66 72 | 6f 6d 2d 6c 69 6e 65 20 |dmail-fr|om-line |
|00001fd0| 22 46 72 6f 6d 3a 20 22 | 20 22 5e 53 75 62 6a 65 |"From: "| "^Subje|
|00001fe0| 63 74 3a 5b 20 09 5d 2a | 5c 6e 22 20 22 22 20 66 |ct:[ .]*|\n" "" f|
|00001ff0| 65 65 64 6d 61 69 6c 2d | 6e 75 6b 65 2d 65 6d 70 |eedmail-|nuke-emp|
|00002000| 74 79 2d 68 65 61 64 65 | 72 73 20 22 5e 5b 41 2d |ty-heade|rs "^[A-|
|00002010| 5a 61 2d 7a 30 2d 39 2d | 5d 2b 3a 5b 20 09 5d 2a |Za-z0-9-|]+:[ .]*|
|00002020| 5c 6e 22 20 66 65 65 64 | 6d 61 69 6c 2d 6d 65 73 |\n" feed|mail-mes|
|00002030| 73 61 67 65 2d 69 64 2d | 67 65 6e 65 72 61 74 6f |sage-id-|generato|
|00002040| 72 20 22 5e 4d 45 53 53 | 41 47 45 2d 49 44 3a 5b |r "^MESS|AGE-ID:[|
|00002050| 20 09 5d 2a 5c 6e 22 20 | 66 65 65 64 6d 61 69 6c | .]*\n" |feedmail|
|00002060| 2d 6d 73 67 69 64 2d 70 | 61 72 74 20 73 74 72 69 |-msgid-p|art stri|
|00002070| 6e 67 2d 6d 61 74 63 68 | 20 22 5b 5e 20 09 5d 22 |ng-match| "[^ .]"|
|00002080| 20 22 4d 65 73 73 61 67 | 65 2d 49 44 3a 20 22 20 | "Messag|e-ID: " |
|00002090| 72 75 6e 2d 68 6f 6f 6b | 73 20 66 65 65 64 6d 61 |run-hook|s feedma|
|000020a0| 69 6c 2d 6c 61 73 74 2d | 63 68 61 6e 63 65 2d 68 |il-last-|chance-h|
|000020b0| 6f 6f 6b 20 66 65 65 64 | 6d 61 69 6c 2d 63 6f 6e |ook feed|mail-con|
|000020c0| 66 69 72 6d 2d 6f 75 74 | 67 6f 69 6e 67 20 66 65 |firm-out|going fe|
|000020d0| 65 64 6d 61 69 6c 2d 6f | 6e 65 2d 6c 61 73 74 2d |edmail-o|ne-last-|
|000020e0| 6c 6f 6f 6b 20 66 65 65 | 64 6d 61 69 6c 2d 62 75 |look fee|dmail-bu|
|000020f0| 66 66 65 72 2d 65 61 74 | 69 6e 67 2d 66 75 6e 63 |ffer-eat|ing-func|
|00002100| 74 69 6f 6e 20 62 75 66 | 66 65 72 2d 73 74 72 69 |tion buf|fer-stri|
|00002110| 6e 67 20 22 53 65 6e 64 | 69 6e 67 2e 2e 2e 61 62 |ng "Send|ing...ab|
|00002120| 61 6e 64 6f 6e 65 64 22 | 5d 20 34 5d 29 0a 28 66 |andoned"|] 4]).(f|
|00002130| 73 65 74 20 27 66 65 65 | 64 6d 61 69 6c 2d 64 6f |set 'fee|dmail-do|
|00002140| 2d 62 63 63 20 23 5b 28 | 68 65 61 64 65 72 2d 65 |-bcc #[(|header-e|
|00002150| 6e 64 29 20 22 c0 19 8a | 65 62 88 c2 c3 0c c0 23 |nd) "...|eb.....#|
|00002160| ad 98 c5 94 c6 79 88 60 | 7c 88 c7 c8 21 ab 6c 60 |.....y.`||...!.l`|
|00002170| 0c 57 ab 67 c9 ca 21 88 | aa 70 2a 87 22 20 5b 74 |.W.g..!.|.p*." [t|
|00002180| 20 63 61 73 65 2d 66 6f | 6c 64 2d 73 65 61 72 63 | case-fo|ld-searc|
|00002190| 68 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |h re-sea|rch-forw|
|000021a0| 61 72 64 20 22 5e 42 43 | 43 3a 22 20 68 65 61 64 |ard "^BC|C:" head|
|000021b0| 65 72 2d 65 6e 64 20 30 | 20 31 20 6c 6f 6f 6b 69 |er-end 0| 1 looki|
|000021c0| 6e 67 2d 61 74 20 22 5e | 5b 20 09 5d 2e 2a 5c 6e |ng-at "^|[ .].*\n|
|000021d0| 22 20 72 65 70 6c 61 63 | 65 2d 6d 61 74 63 68 20 |" replac|e-match |
|000021e0| 22 22 5d 20 34 20 22 5c | 0a 44 65 6c 65 74 65 20 |""] 4 "\|.Delete |
|000021f0| 42 43 43 3a 20 61 6e 64 | 20 74 68 65 69 72 20 63 |BCC: and| their c|
|00002200| 6f 6e 74 69 6e 75 61 74 | 69 6f 6e 20 6c 69 6e 65 |ontinuat|ion line|
|00002210| 73 20 66 72 6f 6d 20 74 | 68 65 20 68 65 61 64 65 |s from t|he heade|
|00002220| 72 20 61 72 65 61 2e 0a | 54 68 65 72 65 20 6d 61 |r area..|There ma|
|00002230| 79 20 62 65 20 6d 75 6c | 74 69 70 6c 65 20 42 43 |y be mul|tiple BC|
|00002240| 43 3a 20 6c 69 6e 65 73 | 2c 20 61 6e 64 20 65 61 |C: lines|, and ea|
|00002250| 63 68 20 6d 61 79 20 68 | 61 76 65 20 61 72 62 69 |ch may h|ave arbi|
|00002260| 74 72 61 72 69 6c 79 0a | 6d 61 6e 79 20 63 6f 6e |trarily.|many con|
|00002270| 74 69 6e 75 61 74 69 6f | 6e 20 6c 69 6e 65 73 2e |tinuatio|n lines.|
|00002280| 22 5d 29 0a 28 66 73 65 | 74 20 27 66 65 65 64 6d |"]).(fse|t 'feedm|
|00002290| 61 69 6c 2d 66 69 6c 6c | 2d 74 6f 2d 63 63 2d 66 |ail-fill|-to-cc-f|
|000022a0| 75 6e 63 74 69 6f 6e 20 | 23 5b 28 68 65 61 64 65 |unction |#[(heade|
|000022b0| 72 2d 65 6e 64 29 20 22 | c0 c1 5c 6e c3 89 1c 1d |r-end) "|..\n....|
|000022c0| 1e 06 1e 07 1e 08 8a 65 | 62 88 c9 ca 0e 0b c0 23 |.......e|b......#|
|000022d0| ad d6 cc 94 15 cd 79 88 | ce cf 21 ab 8f 60 0e 0b |......y.|..!..`..|
|000022e0| 57 ab 89 d0 d1 21 88 cd | 79 88 aa 6c d2 20 14 d3 |W....!..|y..l. ..|
|000022f0| 0d 0c d4 d5 c0 25 88 d3 | 0d 0c d6 d4 c0 25 88 d7 |.....%..|.....%..|
|00002300| 0d 0c 5c 22 88 d3 0d 0c | d4 d6 c0 25 88 d3 0d 0c |..\"....|...%....|
|00002310| d5 d4 c0 25 88 8a 0d 62 | 88 c9 d8 0c c0 23 ab 86 |...%...b|.....#..|
|00002320| d0 d9 21 88 aa 73 29 aa | 5c 22 2e 06 87 22 20 5b |..!..s).|\"..." [|
|00002330| 74 20 22 09 22 20 66 65 | 65 64 6d 61 69 6c 2d 66 |t "." fe|edmail-f|
|00002340| 69 6c 6c 2d 74 6f 2d 63 | 63 2d 66 69 6c 6c 2d 63 |ill-to-c|c-fill-c|
|00002350| 6f 6c 75 6d 6e 20 6e 69 | 6c 20 74 68 69 73 2d 6c |olumn ni|l this-l|
|00002360| 69 6e 65 2d 65 6e 64 20 | 74 68 69 73 2d 6c 69 6e |ine-end |this-lin|
|00002370| 65 20 66 69 6c 6c 2d 63 | 6f 6c 75 6d 6e 20 66 69 |e fill-c|olumn fi|
|00002380| 6c 6c 2d 70 72 65 66 69 | 78 20 63 61 73 65 2d 66 |ll-prefi|x case-f|
|00002390| 6f 6c 64 2d 73 65 61 72 | 63 68 20 72 65 2d 73 65 |old-sear|ch re-se|
|000023a0| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 22 5e 5c |arch-for|ward "^\|
|000023b0| 5c 28 54 4f 3a 5c 5c 7c | 43 43 3a 5c 5c 29 22 20 |\(TO:\\||CC:\\)" |
|000023c0| 68 65 61 64 65 72 2d 65 | 6e 64 20 30 20 31 20 6c |header-e|nd 0 1 l|
|000023d0| 6f 6f 6b 69 6e 67 2d 61 | 74 20 22 5e 5b 20 09 5d |ooking-a|t "^[ .]|
|000023e0| 2b 22 20 72 65 70 6c 61 | 63 65 2d 6d 61 74 63 68 |+" repla|ce-match|
|000023f0| 20 22 20 22 20 70 6f 69 | 6e 74 2d 6d 61 72 6b 65 | " " poi|nt-marke|
|00002400| 72 20 73 75 62 73 74 2d | 63 68 61 72 2d 69 6e 2d |r subst-|char-in-|
|00002410| 72 65 67 69 6f 6e 20 33 | 32 20 32 20 34 34 20 66 |region 3|2 2 44 f|
|00002420| 69 6c 6c 2d 72 65 67 69 | 6f 6e 2d 61 73 2d 70 61 |ill-regi|on-as-pa|
|00002430| 72 61 67 72 61 70 68 20 | 22 5c 5c 28 5b 5e 2c 5d |ragraph |"\\([^,]|
|00002440| 5c 5c 29 5c 6e 09 5b 20 | 5d 2a 22 20 22 5c 5c 31 |\\)\n.[ |]*" "\\1|
|00002450| 2c 5c 6e 09 22 5d 20 36 | 20 22 5c 0a 53 6d 61 72 |,\n."] 6| "\.Smar|
|00002460| 74 20 66 69 6c 6c 69 6e | 67 20 6f 66 20 54 4f 3a |t fillin|g of TO:|
|00002470| 20 61 6e 64 20 43 43 3a | 20 68 65 61 64 65 72 73 | and CC:| headers|
|00002480| 2e 20 20 54 68 65 20 66 | 69 6c 6c 69 6e 67 20 74 |.  The f|illing t|
|00002490| 72 69 65 73 20 74 6f 20 | 61 76 6f 69 64 0a 73 70 |ries to |avoid.sp|
|000024a0| 6c 69 74 74 69 6e 67 20 | 6c 69 6e 65 73 20 65 78 |litting |lines ex|
|000024b0| 63 65 70 74 20 61 74 20 | 63 6f 6d 6d 61 73 2e 20 |cept at |commas. |
|000024c0| 20 54 68 69 73 20 61 76 | 6f 69 64 73 2c 20 69 6e | This av|oids, in|
|000024d0| 20 70 61 72 74 69 63 75 | 6c 61 72 2c 0a 73 70 6c | particu|lar,.spl|
|000024e0| 69 74 74 69 6e 67 20 77 | 69 74 68 69 6e 20 70 61 |itting w|ithin pa|
|000024f0| 72 65 6e 74 68 65 73 69 | 7a 65 64 20 63 6f 6d 6d |renthesi|zed comm|
|00002500| 65 6e 74 73 20 69 6e 20 | 61 64 64 72 65 73 73 65 |ents in |addresse|
|00002510| 73 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 66 65 65 |s."]).(f|set 'fee|
|00002520| 64 6d 61 69 6c 2d 64 65 | 64 75 63 65 2d 61 64 64 |dmail-de|duce-add|
|00002530| 72 65 73 73 2d 6c 69 73 | 74 20 23 5b 28 66 65 65 |ress-lis|t #[(fee|
|00002540| 64 6d 61 69 6c 2d 74 65 | 78 74 2d 62 75 66 66 65 |dmail-te|xt-buffe|
|00002550| 72 20 68 65 61 64 65 72 | 2d 73 74 61 72 74 20 68 |r header|-start h|
|00002560| 65 61 64 65 72 2d 65 6e | 64 29 20 22 c0 c1 21 88 |eader-en|d) "..!.|
|00002570| c2 c3 c4 89 1d 1e 06 1e | 07 1e 08 c4 8e 8a 0e 09 |........|........|
|00002580| 71 88 ca 20 88 cb 0e 0c | 0e 0d 0e 0e 23 88 65 62 |q.. ....|....#.eb|
|00002590| 88 cf d0 0e 0e c2 23 ab | ac d1 c3 21 88 d2 94 16 |......#.|...!....|
|000025a0| 06 d3 79 88 d4 d5 21 ab | 8b 60 0e 0e 57 ab 85 d3 |..y...!.|.`..W...|
|000025b0| 79 88 aa 70 d6 20 15 0e | 07 d7 d8 0e 06 0d 7b 21 |y..p. ..|......{!|
|000025c0| 51 16 07 aa 4c ca 20 88 | d9 0e 07 21 88 da 65 64 |Q...L. .|...!..ed|
|000025d0| db dc c2 25 88 da 65 64 | dd dc c2 25 88 da 65 64 |...%..ed|...%..ed|
|000025e0| de dc c2 25 88 65 62 88 | cf df 0e 0e c2 23 ad 86 |...%.eb.|.....#..|
|000025f0| d1 d7 21 88 aa 72 2e 06 | 87 22 20 5b 72 65 71 75 |..!..r..|." [requ|
|00002600| 69 72 65 20 6d 61 69 6c | 2d 75 74 69 6c 73 20 74 |ire mail|-utils t|
|00002610| 20 22 22 20 6e 69 6c 20 | 74 68 69 73 2d 6c 69 6e | "" nil |this-lin|
|00002620| 65 2d 65 6e 64 20 74 68 | 69 73 2d 6c 69 6e 65 20 |e-end th|is-line |
|00002630| 73 69 6d 70 6c 65 2d 61 | 64 64 72 65 73 73 2d 6c |simple-a|ddress-l|
|00002640| 69 73 74 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |ist case|-fold-se|
|00002650| 61 72 63 68 20 66 65 65 | 64 6d 61 69 6c 2d 61 64 |arch fee|dmail-ad|
|00002660| 64 72 65 73 73 2d 62 75 | 66 66 65 72 20 65 72 61 |dress-bu|ffer era|
|00002670| 73 65 2d 62 75 66 66 65 | 72 20 69 6e 73 65 72 74 |se-buffe|r insert|
|00002680| 2d 62 75 66 66 65 72 2d | 73 75 62 73 74 72 69 6e |-buffer-|substrin|
|00002690| 67 20 66 65 65 64 6d 61 | 69 6c 2d 74 65 78 74 2d |g feedma|il-text-|
|000026a0| 62 75 66 66 65 72 20 68 | 65 61 64 65 72 2d 73 74 |buffer h|eader-st|
|000026b0| 61 72 74 20 68 65 61 64 | 65 72 2d 65 6e 64 20 72 |art head|er-end r|
|000026c0| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|000026d0| 20 22 5e 5c 5c 28 54 4f | 3a 5c 5c 7c 43 43 3a 5c | "^\\(TO|:\\|CC:\|
|000026e0| 5c 7c 42 43 43 3a 5c 5c | 29 22 20 72 65 70 6c 61 |\|BCC:\\|)" repla|
|000026f0| 63 65 2d 6d 61 74 63 68 | 20 30 20 31 20 6c 6f 6f |ce-match| 0 1 loo|
|00002700| 6b 69 6e 67 2d 61 74 20 | 22 5e 5b 20 09 5d 2b 22 |king-at |"^[ .]+"|
|00002710| 20 70 6f 69 6e 74 2d 6d | 61 72 6b 65 72 20 22 20 | point-m|arker " |
|00002720| 22 20 6d 61 69 6c 2d 73 | 74 72 69 70 2d 71 75 6f |" mail-s|trip-quo|
|00002730| 74 65 64 2d 6e 61 6d 65 | 73 20 69 6e 73 65 72 74 |ted-name|s insert|
|00002740| 2d 73 74 72 69 6e 67 20 | 73 75 62 73 74 2d 63 68 |-string |subst-ch|
|00002750| 61 72 2d 69 6e 2d 72 65 | 67 69 6f 6e 20 31 30 20 |ar-in-re|gion 10 |
|00002760| 33 32 20 34 34 20 39 20 | 22 5b 20 09 5d 2b 22 5d |32 44 9 |"[ .]+"]|
|00002770| 20 36 20 22 5c 0a 47 65 | 74 20 61 64 64 72 65 73 | 6 "\.Ge|t addres|
|00002780| 73 20 6c 69 73 74 20 73 | 75 69 74 61 62 6c 65 20 |s list s|uitable |
|00002790| 66 6f 72 20 63 6f 6d 6d | 61 6e 64 20 6c 69 6e 65 |for comm|and line|
|000027a0| 20 75 73 65 20 6f 6e 20 | 73 69 6d 70 6c 65 20 2f | use on |simple /|
|000027b0| 62 69 6e 2f 6d 61 69 6c | 2e 22 5d 29 0a 28 66 73 |bin/mail|."]).(fs|
|000027c0| 65 74 20 27 66 65 65 64 | 6d 61 69 6c 2d 6f 6e 65 |et 'feed|mail-one|
|000027d0| 2d 6c 61 73 74 2d 6c 6f | 6f 6b 20 23 5b 28 66 65 |-last-lo|ok #[(fe|
|000027e0| 65 64 6d 61 69 6c 2d 70 | 72 65 70 70 65 64 2d 74 |edmail-p|repped-t|
|000027f0| 65 78 74 2d 62 75 66 66 | 65 72 29 20 22 8a c0 8b |ext-buff|er) "...|
|00002800| 29 87 22 20 5b 28 28 62 | 79 74 65 2d 63 6f 64 65 |)." [((b|yte-code|
|00002810| 20 22 c0 09 21 88 c2 c3 | 21 87 22 20 5b 73 77 69 | "..!...|!." [swi|
|00002820| 74 63 68 2d 74 6f 2d 62 | 75 66 66 65 72 20 66 65 |tch-to-b|uffer fe|
|00002830| 65 64 6d 61 69 6c 2d 70 | 72 65 70 70 65 64 2d 74 |edmail-p|repped-t|
|00002840| 65 78 74 2d 62 75 66 66 | 65 72 20 79 2d 6f 72 2d |ext-buff|er y-or-|
|00002850| 6e 2d 70 20 22 53 65 6e | 64 20 74 68 69 73 20 65 |n-p "Sen|d this e|
|00002860| 6d 61 69 6c 3f 20 22 5d | 20 32 29 29 5d 20 31 20 |mail? "]| 2))] 1 |
|00002870| 22 5c 0a 4f 66 66 65 72 | 20 74 68 65 20 75 73 65 |"\.Offer| the use|
|00002880| 72 20 6f 6e 65 20 6c 61 | 73 74 20 63 68 61 6e 63 |r one la|st chanc|
|00002890| 65 20 74 6f 20 67 69 76 | 65 20 69 74 20 75 70 2e |e to giv|e it up.|
|000028a0| 22 5d 29 0a 28 70 72 6f | 76 69 64 65 20 27 66 65 |"]).(pro|vide 'fe|
|000028b0| 65 64 6d 61 69 6c 29 0a |                         |edmail).|        |
+--------+-------------------------+-------------------------+--------+--------+